 Public dt As New DataTable
    Public r As DataRow

    Sub hitungcostfns()

        Dim i As Integer
        '===========================================================
        koneksi()
        Dim cmd As SingleStoreCommand
        Dim simpan As String = "SELECT * FROM tbl_costfns"
        cmd = New SingleStoreCommand(simpan, conn)
        Dim dscmd As New SingleStoreDataAdapter(simpan, conn)
        Dim ds As New DataSet
        dscmd.Fill(ds)
        dt.Columns.Add("bulantahun", Type.GetType("System.String"))
        dt.Columns.Add("flowprocess", Type.GetType("System.String"))
        dt.Columns.Add("Department", Type.GetType("System.String"))
        dt.Columns.Add("Price", Type.GetType("System.String"))
        For i = 0 To ds.Tables(0).Rows.Count - 2
            r = dt.NewRow
            r("bulantahun") = ds.Tables(0).Rows(i).Item(1)
            r("flowprocess") = ds.Tables(0).Rows(i).Item(3)
            r("Department") = ds.Tables(0).Rows(i).Item(4)
            r("Price") = ds.Tables(0).Rows(i).Item(5)
            dt.Rows.Add(r)
        Next
        dgfns.DataSource = dt

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Singeing' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_singeing.Text = 0
        Else
            txt_singeing.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Desizing Continuous' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_desizingscour.Text = 0
        Else
            txt_desizingscour.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Pre-Sett' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_presett.Text = 0
        Else
            txt_presett.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Mercerizing' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_mercerizing.Text = 0
        Else
            txt_mercerizing.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'CPB' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_cpb.Text = 0
        Else
            txt_cpb.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Pad Steam' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_padsteam.Text = 0
        Else
            txt_padsteam.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Exhaust' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_exhaust.Text = 0
        Else
            txt_exhaust.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Soaping' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_soaping.Text = 0
        Else
            txt_soaping.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Stenter' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_stenter.Text = 0
        Else
            txt_stenter.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Calender' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_calender.Text = 0
        Else
            txt_calender.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Sanforize' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_sanporize.Text = 0
        Else
            txt_sanporize.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Sanforize Shrinkage' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_sanforizeshrinkage.Text = 0
        Else
            txt_sanforizeshrinkage.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Sueded' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_sueded.Text = 0
        Else
            txt_sueded.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Raising' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_raising.Text = 0
        Else
            txt_raising.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Packing (local)' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_packing.Text = 0
        Else
            txt_packing.Text = dgfns.Item(3, 0).Value.ToString
        End If

        dt.DefaultView.RowFilter = "bulantahun like '%" & Format(dtp_waktu.Value, "dd/MM/yyyy") & "%' and flowprocess = 'Packing (export)' and Department = 'Finishing 5'"
        If dgfns.Item(3, 0).Value Is Nothing OrElse dgfns.Item(3, 0).Value.ToString.Trim = "" Then
            txt_packingexport.Text = 0
        Else
            txt_packingexport.Text = dgfns.Item(3, 0).Value.ToString
        End If
